home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #5 / Floppy_Magazine_87-5_1987_Megasystems_Oy_fi_Side_B.d64 / part1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  491b  |  17 lines
  1. 5 vm=32768:cc=2:ch=vm+cc*1024:rm=53248-ch
  2. 10 poke 56578,peek(56578)or3
  3. 20 poke 56576,(peek(56576)and252)or1
  4. 30 poke 53272,(peek(53272)and240)orcc
  5. 40 poke 53272,(peek(53272)and15)or0*11
  6. 50 poke 648,128
  7. 55 if peek(34816)=60 then 90
  8. 60 poke 56334,peek(56334)and254:poke1,peek(1)and251
  9. 70 forn=chtoch+2048:poke n,peek(n+rm):next
  10. 80 poke 1,peek(1)or4:poke56334,peek(56334)or1
  11. 90 print"[144][147]load"+chr$(34)+" part3"+chr$(34)+",8,1"
  12. 92 print"new"
  13. 94 print"poke 52,128:poke 56,128:clr"
  14. 96 print"load"+chr$(34)+" part6"+chr$(34)+",8"
  15. 98 print"run"
  16. 100 forn=0to4:poke 631+n,13:next:poke 198,5:print"";:end
  17.